In diesem Beispiel wird die Pmt-Funktion verwendet, um die monatliche Zahlung fⁿr einen Kredit ⁿber einen festgelegten Zeitraum zurⁿckzugeben. Die folgenden Werte sind gegeben: Zinssatz pro Zeitraum (JZINS / 12
), Gesamtanzahl der Zahlungen (GesZahl
), Barwert oder heutiger Wert des Kredits (BWert
), Endwert des Kredits (EWert
) und eine Zahl, die angibt, ob die Zahlung am Ende oder am Anfang des Zahlungszeitraums fΣllig ist (ZahlTyp).
Dim Fmt, EWert, BWert, JZINS, GesZahl, ZahlTyp, Zahlung
Const TYPENDE = 0, TYPANFANG = 1 ' Zahlungszeitpunkt.
Fmt = "###.###.##0,00" ' Geldformat definieren.
EWert = 0 ' I.d.R. 0 fⁿr einen Kredit.
BWert = InputBox("Welchen Betrag m÷chten Sie aufnehmen?")
JZINS = InputBox("Wie hoch ist der Jahreszins fⁿr den Kredit?")
If JZINS > 1 Then JZINS = JZINS / 100 ' Richtiges Format verwenden.
GesZahl = InputBox("Wie viele Monatszahlungen m÷chten Sie leisten?")
ZahlTyp = MsgBox("Erfolgen Zahlungen am Monatsende?", vbYesNo)
If ZahlTyp = vbNo Then ZahlTyp = TYPANFANG Else ZahlTyp = TYPENDE
Zahlung = Pmt(JZINS / 12, GesZahl, -BWert, EWert, ZahlTyp)
MsgBox "Sie zahlen " & Format(Zahlung, Fmt) & " pro Monat."